

let seed = ref 1234
let number = ref 10
let maxvalue = ref 100

let usage = "Usage: rand -n <number of randoms> -seed <seed>"
let args = Arg.align 
let args = Arg.align
  ([
    ("-n",  Arg.Set_int number,  " Number of randoms"); 
    ("-max",  Arg.Set_int maxvalue,  " Upper range for random values"); 
    ("-seed", Arg.Set_int seed, " Seed value"); ])

let main() =
	Arg.parse args ignore usage;
	Random.init !seed;
	let f i = ignore(i); Random.int !maxvalue in
	let arrayrand = Array.init !number f in
	Array.iter (Printf.printf "%d " ) arrayrand;
	Printf.printf "\n";
	ignore()


let _ =
	main()
